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RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE fcimra ( {DENT = 'v04-000' 


LISS32C, ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
' NONEXTERNAL = LONG-RELATIVES] 
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‘* 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
I ORDANCE “ie OF SU AND eae | 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: CORPORaT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


MINOR 3 tO 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


Special handling for first character written into the MRA. 
ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: June, 1978 


SOOooooooooooooooo 
SoOoCoocooooooooo 


—OOODNAOVE WN — O OWNOAUEWN “OO ONOAU EW" OODONOUSWh 
oo 


a kt tk tt 3 8 ss Ss ss 1 OOOO 
- omome 
rs 


. 
- 
. 
. 
. 
. 
. 
* 
. 
*. 
. 
. 
. 
° 
7 
. 
. 
o 
. 
° 
- 
° 
. 
o 
7 
e 
. 
o 
. 
o 
. 
oe 
> 
e 
. 
. 
7 
° 
- 
° 
. 
° 
. 
° 
7 
° 
. 
° 
. 
. 
. 
° 
. 
. 
° 
. 
. 
. 
« 
. 
. 
. 
. 
. 
o 
. 
o 
. 
° 
. 
° 
. 
* 
. 
° 
. 
° 
- 
e 
. 
° 


BAW AAANW NA AIR PMNSPONONPONONONY 2 2 ee 


SEAN WIWwinonononononor 
—OOONAOUEWN —“OOONOus 


So 
So 


aca . " 


H 4 
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v04-000 Revision History 12-80-1382 90° 86513 RUNOFF .SRCJFCIMRA.BLI;1 a (2 


; 65 tg 1 SSBTTL ‘Revision History’ 
: te $7 ! MODIFIED BY: | 
: 46 45 1 011 ~~ KFAQ0011 Ken Alden 05-0¢t-1983 | 
3; 67 0 ‘8 1! For DSRPLUS: Added bit sca_margin_pad to help the CREF 

; $8 Bae : facility determine what 7s in the MRA. 

: 59 $069 1 010 REROOO10 Ron Randall 12-May-1983 

3 23 Baee : For DSRPLUS: Fixed numbered-footnote/entity-resolution bug. 

: 38 005¢ 1 i 009 REROOOO9 Ron Randall 18-Apr-1983 

: ee Beez : Fixed left margin indentation bug. 

: 56 0055 1 | 008 REROOOO8 Ron Randall 06-Apr-1983 

aoa) Se 0056 1! For DSRPLUS: 

[| 2 0057 1! Adds footnote number or blanks at the start of each footnote 

: 4 ith: : Line being collected if footnote numbering is on. 

: 61 0060 1! 007 REROO007 Ron Randall 07-Mar-1983 

; 6¢ 0061 1! Global edit of all modules. Updated module names, idents, 

: o bbe : copyright dates. Changed require files to BLISS library. 

: 65 0064 1— 


SN NNN NOOO 
oon 
OOCCCOCCCOCOOooOooO 


WN" OOCONOUFSWNO”O 
— —DOOCCOCCOOCO NAD 


Coco COCO CoCo ~~ 
PWN OOONO UNE WN OOODNAUES WN OOONOAOUE WN OOO 


us 


cccccecce 
ee ewe lolololelolololololololololo) 


Module Level Declarations 


i INCLUDE FILES: 


i 
BRARY NXPORT : reer: 
QUIRE "REQ:RNODEF 


F _DSRPLUS XTHEN 
BRARY 'REQ:DPLLIB' ; 
B 
I 


ARY ‘REQ:DSRLIB'; 
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EXTERNAL REFERENCES: 


EXTERNAL 
fnct : fnct_definition 
mra_: REF FIXED STRING, 
pdt : REF pdt_definition, 
sca sca_definition, 
tsf : tsf_definition; 


F +a THEN 


1 
EXTERNA 


oontie.. in_footnote, 
L_character, 
r_character; 
hie ROUTINE 

° 


EXTERNAL ROUTINE 
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XSBTTL "Module Level Declarations’ 


Iboseoct9Rs 09:27:05 yaRoay 814 


' XPORT Libra 
! RUNOFF corlant definitions 


! DSRPLUS BLISS Library 


! DSR BLISS Library 
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GLOBAL ROUTINE fcimra : NOVALUE = 

144 

' FUNCTIONAL DESCRIPTION: 
This routine is called prior to putting the first text character 
into the MRA. It generates sufficient spaces to take care of 
ite Gaaeinat takes care of paragraph indentation, and also 
Prior to the call to FCIMRA, commands such as .SKIP, .TEST PAGE, 
-LEFT MARGIN, .INDENT, and others have saved certain carriage 
before the first actual text character gets put into the MRA. 

FORMAL PARAMETERS: None 

IMPLICIT INPUTS: Nore 

IMPLICIT OUTPUTS: ilone 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 
BEGIN 
LOCAL 
left_margin; ! Temporary computation of left margin. 
<1F DSRPLUS XTHEN 
Exit if we are in FCIMRA as a result of resolving an entity. 
if -entity_in_ footnote 


RETURN; 
<FI 
left_margin = 0; 
IF .sca_para_pnd 
THEN | » al 
Start a paragraph. 
BEGIN 
LOCAL 
skip, 
test_page; 


IF .pdt_skip LSS 0 
THEN 
= (.sca_spacing + 1) / 2 


w Ww 
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<0 ate 
os 
iT iT 


= .pdt_skip * .sca_spacing; 
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control information. FCIMRA finishes processing this information 
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16-Sep-1984 00:27:05 AX-11 Bliss-32 V4.0-74 
12286871382 99360593 RUNOFF ..SRCJFCIMRA Bui: 
test_page = (.pdt_tp + 1) * .sca_spacing + .skip; 


-test_page NEQ 0 
4 


IF 

THEN 
Code for a test page command 
gtpc (.test_page); 


IF .pdt_skip NEQ 0 
THEN’ — 


‘Code for skipping Lines. 
BEGIN 
a ad LSS 0 
gcpos (.pdt_skip * .sca_spacing) 
gcskip (.pdt_skip * .sca_spacing); 
END; 


END 
ELSE | 


Not a paragraph: just a new Line. 
if .sca_spacing GTR 1 
THEN _ ° 
Code for skipping between Lines. 
gcskip (.sca_spacing - 1); 
left_margin = .sca_lm + .sca_indent; 


IF .left_margin LSS 0 
THEN 


IF_ .left_margin GEQ .sca_rm 
THEN 

BEGIN 

xmarg (); 

lLeft_margin = 0; 

END; 


DSRPLUS XTHEN 
: Write a blank and the footnote number on the first Line of a footnote. 
iF .fnct numbering AND .fnct collecting AND (.fnct_first_line EQL 1) 
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VO4~000 Module Level Declarations 1 ~300n 138% EE RUNOFF SRC FCIMRA.BLI; 
i 3 THEN 
BEGIN 
4 ' 
5 


Reset flag that caused this action. 
fnct_first_line = 0; 
Set up the footnote number digits. 


foonum (); 
i] 
Write out usual spaces plus one. 


INCR I FROM 1 TO (.Left_margin + 1) DO 
fs_wchar (mra, %C' *); 


PUPP 
VIEW "OO CDNOULS WO” 


POAASO 


! 
Write out the footnote number in brackets. 


fs_wchar (mra, %C'C'); 
' 
Write the left character only if it is not 0. 


if .fnct_number_l NEG 0 
THEN 
fs_wohar (mra, .l_cnaracter); 


fs_wchar (mra, .r Gpprecter?: 
fs-wchar (mra, %C°%J'); 

fs_wechar (mra, %C° '); 

' 

Write an extra space if no left character was written. 


LF ys inet number. | EQ. 0 
fs_wchar (mra, %C° '); 


MINN 
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Adjust character counters appropriately. 
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cccececccccccececececececceccecececececceccececeeccecceccecece 
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tsf_int_hl = .left_margin + 6; 
tsflext hl = .left_margin + 6; 
3 Set in the left margin by 6 for subsequent footnote Lines. 
9 sca_lm = .sca_lm + 6; 
71 9 END™ = 
7 9 ELSE 
7 00 xFI 
74 
fe BEGIN 
7 4 INCR I FROM 1 TO .left_margin DO 
78 5 fs_wohar (mra, %C° '); 


ccc 
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tsfintnal = .left_margin; 

tsf ext hl = .left_margin; 
DSRPLUS~%THEN 

sca_margin_pad = .left_margin; 
END; 

sca_indent = 0; 

; No paragraph pending. 
$ca_para_pnd = false; 

; Update word pointer. 
sca_wrd_pntr = .fs_next (mra); 
END; 
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' Amount in the mra that was 
! used for padding. 


FCIMRA 


FCIMRA 
\V04-000\ 

FNCT, MRA, PDT, SCA 
TSF, GCPOS, GCSKIP 
GTPé, NEGIND, XMARG 
SCODES,NOWRT,2 


FCIMRA, Save R2,R3,R4,R5,R6 
MRA, 
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N 4 
FCIMRA 16-Sep-1984 00:27: AX-11 Bliss-32 V4.0-74 
en G00 Module Level Declarations 12-888: 382 90:30:93 RUNOFF .SRC sre 
7 50 00 B84 C5 0005 MULL3 a@SCA+124, RO, -(SP) 
000000006 EF if if ; CALLS aS GCPO§ 
7E 50 00 B84 c$ 4$ MULLS @SCA+124, RO, -(SP) 
01 4 D| 72 5$ CMPL =-«(R2), #1 
B 3 7 BLEG 
7E 62 e 7 SUBL3. #1, (R2), =(SP) 
000000096 EF 1 FB $$: CALLS #1 gcSk P 
53 FB B4 60 A, 9 $: ADDL sche , @SCA+116, LEFT_MARGIN 
000000006 EF Fe A CALLS #0, NEGIND 
D CLRL —s LEF T_MARGIN 
FC BG : DI } 8 cHPL FT“MARGIN, @SCA+120 
000000006 EF 09 FB 99 CALLS #0, XMARG 
D A CLRL. = LEF T_MARGIN 
50 66 DO OA 9$ MOVL RA, RO 
51 $6 DU 000A MOVL MRA, RI 
D4 000A8 CLRL 
QA 11 OOOAA BRB 1$ 
04 B80 0 90 OOOAC 10$:  MOVB #32, @4(RO) 
04 AO D6 9080 INCL  4(RO) 
ae 0008 INCL 12(R1) 
F2 52 53 F3 00086 11$:  AOBLEQ LEFT_MARGIN, I, 10$ 
51 000000006 EF DO OOOBA MOVL  TSF,~R1 
61 3 pO 000C1 MOVL LEFT_MARGIN, (R1) 
04 Al 3 p 00C4 MOVL _LEFT™MARGIN, 4(R1) 
60 A& 7¢ 000C8 CLRO  SCA+220 
7 OM 04 Ad 00 docs MOVL  4(RO), SCA+248 
04 000D0 RET 


; Routine Size: 209 bytes, Routine Base: S$CODE$ + 0000 

344 0426 1 
: 300 0427 1 ! End of module 
3 5O 0428 0 


PSECT SUMMARY 
Bytes Attributes 
209 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


enseesee Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
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voa~000 Module Level Declarations 1B-Se0-1984 99: 86; 9? RUNOFF SRE FeEMMASOL ie (4) 


: OSSSDUADB:EsySLIBDNPORT.L32:1 4, | $99 8 Decl 00:00. 


; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:F CIMRA/OBJ=OBJ$:FCIMRA MSRCS$:FCIMRA/UPDATE=(ENHS$:F CIMRA) 
; Size: 209 sode + 0 data bytes 

; Run Time: 0:06.1 


; Elapsed Time: 00:1 
; Lines/CPU Min: 4 

3 Lexemes/CPU-Min: 15924 
; aoe Used: 75 pages 
3 a 


; Compilacion Complete 
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